home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / timer11.zip / ULZTIMER.C < prev    next >
C/C++ Source or Header  |  1992-04-21  |  3KB  |  102 lines
  1. /****************************************************************************
  2. *
  3. *                          Ultra Long Period Timer
  4. *
  5. *                    Copyright (C) 1992 Kendall Bennett.
  6. *                            All rights reserved.
  7. *
  8. * Filename:        $RCSfile: ulztimer.c $
  9. * Version:        $Revision: 1.3 $
  10. *
  11. * Language:        ANSI C
  12. * Environment:    any
  13. *
  14. * Description:    Module to interface to the BIOS Timer Tick for timing
  15. *                code that takes up to 24 hours (ray tracing etc). There
  16. *                is a small overhead in calculating the time, this
  17. *                will be negligible for such long periods of time.
  18. *
  19. * $Id: ulztimer.c 1.3 92/04/21 01:47:37 kjb release $
  20. *
  21. * Revision History:
  22. * -----------------
  23. *
  24. * $Log:    ulztimer.c $
  25. * Revision 1.3  92/04/21  01:47:37  kjb
  26. * Fixed bug in ULZElapsedTime().
  27. * 
  28. * Revision 1.2  92/04/21  01:19:36  kjb
  29. * Converted to memory model dependant library.
  30. * 
  31. * Revision 1.1  92/04/20  17:34:35  kjb
  32. * Initial revision
  33. * 
  34. ****************************************************************************/
  35.  
  36. #include "ztimer.h"
  37.  
  38. /* Macro to obtain the current timer tick value */
  39.  
  40. #define peekul(__segment,__offset) (*((ulong  far*)FP(__segment, __offset)))
  41. #define    readticks()    peekul(0x40,0x6C)
  42.  
  43. /* Macros to enable and disable interrupts. These work under Borland C++
  44.  * but will probably need to be modified for other compilers.
  45.  */
  46.  
  47. #define disable( ) __emit__( (char )( 0xfa ) )
  48. #define enable( )  __emit__( (char )( 0xfb ) )
  49.  
  50. PUBLIC ulong ULZReadTime(void)
  51. /****************************************************************************
  52. *
  53. * Function:        ULZReadTime
  54. * Returns:        Current timer tick count.
  55. *
  56. * Description:    We turn of interrupts while we
  57. *                get the value from the BIOS data area since it is stored
  58. *                as two bytes and an interrupt COULD stuff up our reading.
  59. *
  60. ****************************************************************************/
  61. {
  62.     ulong    ticks;
  63.  
  64.     disable();                /* Turn of interrupts                 */
  65.     ticks = readticks();    /* Read the BIOS timer tick value    */
  66.     enable();                /* Turn on interrupts again         */
  67.  
  68.     return ticks;
  69. }
  70.  
  71. PUBLIC ulong ULZElapsedTime(ulong start,ulong finish)
  72. /****************************************************************************
  73. *
  74. * Function:        ULZElapsedTime
  75. * Parameters:    start    - Starting timer tick value
  76. *                finish    - Ending timer tick value
  77. *
  78. * Returns:        Elapsed timer between starting time and ending time in
  79. *                1/10 ths of a second.
  80. *
  81. ****************************************************************************/
  82. {
  83.     /* Check to see whether a midnight boundary has passed, and if so
  84.      * adjust the finish time to account for this. We cannot detect if
  85.      * more that one midnight boundary has passed, so if this happens
  86.      * we will be generating erronouse results.
  87.      */
  88.  
  89.     if (finish < start)
  90.         finish += 1573040L;            /* Number of ticks in 24 hours        */
  91.  
  92.     finish -= start;
  93.  
  94.     /* Convert to 1/10ths of a second. We dont have enough precision in
  95.      * an unsigned long to convert the value accurately, so we must
  96.      * do the conversion in floating point. I prefer the answer as an
  97.      * unsigned long so it is returned that way rather than as a double.
  98.      */
  99.  
  100.     return (finish / ((double)119318.0 / 65536.0));
  101. }
  102.